home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Herois
/
Codigo.Cst
/
00198_Script_MM Jurassic Frame 2
< prev
next >
Wrap
Text File
|
1999-03-19
|
2KB
|
71 lines
on exitFrame
go the frame
end
on idle
global gMustUpdate, mudouCursor, tipoCursor
set gMustUpdate = false
sendAllSprites(#idleSprite)
set y = the mouseV
set v = 0
if y >= 297 and y < 347 then
set v = (y - 297) * (96 - 16) / 50 + 16
else if y > 112 and y <= 162 then
set v = (162 - y) * (96 - 16) / 50 + 16
set v = -v
end if
global gJurFora
if v <> 0 then
global gJurUltimo
if gJurFora then
set gJurFora = false
set gJurUltimo = the timer
return
end if
global gJurassicScroll, gJurMax
set d = v * (the timer - gJurUltimo) / 60
if gJurassicScroll + d < 224 then set d = 224 - gJurassicScroll
else if gJurassicScroll + d > gJurMax then
set d = gJurMax - gJurassicScroll
end if
if d = 0 then
if mudouCursor then
cursor -1
set mudouCursor = false
set gMustUpdate = true
end if
return
end if
set gJurUltimo = the timer
set tmp = gJurassicScroll
jurassicScroll gJurassicScroll + d
if tmp <> gJurassicScroll then
if d > 0 then
cursor [the number of member ("CursorBaixo" & tipoCursor),¼
the number of member "CursorMask"]
else
cursor [the number of member ("CursorCima" & tipoCursor),¼
the number of member "CursorMask"]
end if
set tipoCursor = 3 - tipoCursor
set mudouCursor = true
set gMustUpdate = true
else
if mudouCursor then
cursor -1
set mudouCursor = false
set gMustUpdate = true
end if
end if
else
set gJurFora = true
if mudouCursor then
cursor -1
set mudouCursor = false
set gMustUpdate = true
end if
end if
if gMustUpdate then updateStage
end